#include"Mystdio.h"
#include<unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include<stdlib.h>
#include<assert.h>

#define FILEMODE 0666


//调系统调用接口 open
//"w" "a" "r"
_FILE* _fopen(const char* filename,const char* flag)
{
    assert(filename);
    assert(flag);
    int f = 0;
    int fd = -1;
    if(strcmp(flag,"w")==0) 
    {
        f=(O_CREAT|O_WRONLY|O_TRUNC);
        fd = open(filename,f,FILEMODE);
    }
    else if(strcmp(flag,"a")==0)
    {
        f=(O_CREAT|O_WRONLY|O_APPEND);
        fd = open(filename,f,FILEMODE);
    }
    else if(strcmp(flag,"r")==0) 
    {
        f=O_RDONLY;
        fd = open(filename,f);
    }
    else { return NULL; }
    
    if(fd == -1)
    {
        return NULL;
    }
    
    _FILE* fp = (_FILE*)malloc(sizeof(_FILE));
    if(fp == NULL) return NULL;

    fp->fileno = fd;
    fp->flag = FLUSH_LINE;//默认行刷新
    fp->out_pos = 0;
}

//文件写入
int _fwrite(_FILE* fp,const char* s,int len)
{
    //没有做异常处理；写入空间不够等问题
    //也没考虑缓冲区不足，局部问题-》实际写入多少
    memcpy(&(fp->outbuffer[fp->out_pos]),s,len);
    fp->out_pos+=len;
    //判断
    if(fp->flag&FLUSH_NOW)
    {   
        write(fp->fileno,fp->outbuffer,fp->out_pos);
        fp->out_pos = 0;
    }
    else if(fp->flag&FLUSH_LINE)
    {
        //检测字符串中间出现'\n'问题
        //
        if(fp->outbuffer[fp->out_pos-1] == '\n')
        {
            write(fp->fileno,fp->outbuffer,fp->out_pos);
            fp->out_pos = 0;
        }
        else
            return len;
    }
    else if(fp->flag&FLUSH_ALL)
    {
        if(fp->out_pos == SIZE)
        {
            write(fp->fileno,fp->outbuffer,fp->out_pos);
            fp->out_pos = 0;
        }
    }
    
    return len;
}


void _fflush(_FILE* fp)
{
    if(fp->out_pos > 0)
    {
        write(fp->fileno,fp->outbuffer,fp->out_pos);
        fp->out_pos = 0;
    }
}



//调系统调用接口close
void _fclose(_FILE* fp)
{
    if(fp == NULL) return;
    if(fp->out_pos > 0) _fflush(fp);//刷新缓冲区
    close(fp->fileno);
    free(fp);
}










